/* Guile-GCC
   Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org>

   This file is part of Guile-GCC.

   Guile-GCC is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.

   Guile-GCC is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with Guile-GCC.  If not, see <http://www.gnu.org/licenses/>.  */

#include <stdlib.h>
#include <stdio.h>

static int
fibo (int x)
{
  if (x <= 1)
    return x;
  else
    return fibo (x - 1) + fibo (x - 2);
}

static int
foo (int x)
{
  return fibo (x + 1);
}

static int
bar (int x)
{
  return foo (x - 1);
}

int
main ()
{
  printf ("This programs serves as an example of the call graph \
extraction Guile plug-in.\n");
  printf ("fibo (%d) = %d\n", 17, bar (17));
  return EXIT_SUCCESS;
}
